perm filename E.DIF[E,ALS]3 blob
sn#145789 filedate 1975-02-17 generic text, type T, neo UTF8
1) E vs. 2) E[CSP,SYS] SRCCOM 02-17-75 15:17 PAGES 1,1
******** E **** PAGE 175 LINE 11
1) ; SETZM ESCIEN
1) PUSHJ P,SPFIN
1) ; MOVE T,QCHR
1) ; CAML T,[-2,,-1]
1) PUSHJ P,SFLUSH
*** E[CSP,SYS] *** PAGE 175 LINE 11
2) PUSHJ P,SPFIN
2) MOVE TT,QCHR
2) CAML TT,[-2,,-1]
2) PUSHJ P,SFLUSH
******** E **** PAGE 175 LINE 41
1) SKIPGE QCHR
1) JRST SUBSTR ;Must be a fast substitution
1) SETZM ESCIEN
1) CAIE B,1 ;This makes this code do for CR-only case as well
1) POPJ P, ;FIND operation with <CR> or <META><CONTROL><CR>
1) TLNE D,EDOK*10
1) MOVEM T,EDMOV
1) JRST POPJ2 ;This will leave us in the LINE-EDITOR
1) FNDERR: SKIPE ESCIEN ;DIRECT IF ESC I GOT US HERE
*** E[CSP,SYS] *** PAGE 175 LINE 40
2) TLNE D,EDOK*10
2) MOVEM T,EDMOV
2) SETZM ESCIEN
2) CAIN B,1 ;This makes this code do for CR-only case as well
2) JRST POPJ2 ;This will leave us in the LINE-EDITOR
2) SKIPGE QCHR
2) JRST SUBSTR ;Must be a fast substitution
2) POPJ P, ;FIND operation with <CR> or <META><CONTROL><CR>
2) FNDERR: SKIPE ESCIEN ;DIRECT IF ESC I GOT US HERE
******** E **** PAGE 175 LINE 73
1) PUSHJ P,DISP ;Now we want it displayed
1) XCT LINTST
1) PUSHJ P,DRAW ;So draw it
1) SETZM TYOPNT
*** E[CSP,SYS] *** PAGE 175 LINE 72
2) JRST .+3
2) PUSHJ P,DISP ;Now we want it displayed
2) XCT LINTST
2) ; PUSHJ P,DRAW ;So draw it
2) SETZM TYOPNT
1) E vs. 2) E[CSP,SYS] SRCCOM 02-17-75 15:17 PAGES 175,175
******** E **** PAGE 175 LINE 95
1) ; TRO F,WRITE
1) ; MOVEI T,MAIN2+3
1) ; MOVEM T,PDL ;This gets unstuck somewhere
1) SETZM ESCIENS
*** E[CSP,SYS] *** PAGE 175 LINE 95
2) SETZM ESCIENS
******** E **** PAGE 175 LINE 103
1) AOS (P)
*** E[CSP,SYS] *** PAGE 175 LINE 100
2) PUSHJ P,DISP ;Now we want it displayed
2) XCT LINTST
2) AOS (P)
******** E **** PAGE 233 LINE 97
1) JRST FINBSL ;Go to the X routine
1) CAIN E,FNDTBF
1) JRST FNDBSL ;Go to the page-only routine
1) ; JRST SRCPG2
*** E[CSP,SYS] *** PAGE 233 LINE 97
2) JRST FINBS2 ;Go to the X routine
2) CAIN E,FNDTBF
2) JRST FNDBS2 ;Go to the page-only routine
2) ; JRST SRCPG2